home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / TrueBASIC Demo / User's Guide / Guess < prev    next >
Encoding:
Text File  |  1985-06-20  |  469 b   |  20 lines  |  [TEXT/TRUE]
  1. ! Program to play a guessing game.
  2. !
  3. RANDOMIZE
  4. LET answer = Int(Rnd*6) + 1      ! Choose number from 1 to 6
  5.  
  6. PRINT "I'm thinking of a number from 1 to 6."
  7. PRINT "You have 3 chances to guess it."
  8. PRINT
  9. FOR chance = 1 to 3
  10.     PRINT "Enter your guess";      ! Ask for number
  11.     INPUT guess
  12.     IF guess = answer THEN
  13.        PRINT "Correct!!!"
  14.        STOP                        ! Stop here, you guessed it
  15.     END IF
  16. NEXT chance
  17. PRINT
  18. PRINT "The number was"; answer
  19. END
  20.